home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / TrayGetMsg.au3 < prev    next >
Text File  |  2006-06-17  |  636b  |  29 lines
  1. #Include <Constants.au3>
  2. #NoTrayIcon
  3.  
  4. Opt("TrayMenuMode",1)    ; Default tray menu items (Script Paused/Exit) will not be shown.
  5.  
  6. $settingsitem    = TrayCreateMenu("Settings")
  7. $displayitem    = TrayCreateItem("Display", $settingsitem)
  8. $printeritem    = TrayCreateItem("Printer", $settingsitem)
  9. TrayCreateItem("")
  10. $aboutitem        = TrayCreateItem("About")
  11. TrayCreateItem("")
  12. $exititem        = TrayCreateItem("Exit")
  13.  
  14. TraySetState()
  15.  
  16. While 1
  17.     $msg = TrayGetMsg()
  18.     Select
  19.         Case $msg = 0
  20.             ContinueLoop
  21.         Case $msg = $aboutitem
  22.             Msgbox(64,"About:","AutoIt3-Tray-sample")
  23.         Case $msg = $exititem
  24.             ExitLoop
  25.     EndSelect
  26. WEnd
  27.  
  28. Exit
  29.